%xp=logspace(-10,-1,10000);
%xp=logspace(-10,-2,10000);
xp=logspace(-10,-5,10000);
x=[-xp(end:-1:1) xp];
plot(x, x.^4.*cos(1./x)+2*x.^4);